<!-- #include file="inc/_constants.asp" -->
<!-- #include file="inc/_helpers.asp" -->
<!DOCTYPE html>
<html>
<head>
    <meta charset="UTF-8">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <title>Northwind</title>
    <!-- #include file="inc/_stylesheets.asp" -->
</head>

<body>
    <!-- #include file="inc/_top_menu.asp" -->

    <%
        Dim dbConn, rsShipperList, strSql

        Set dbConn = Server.CreateObject("ADODB.Connection")
        Set rsShipperList = Server.CreateObject("ADODB.Recordset")

        strSql = "SELECT * FROM Shippers;"

        dbConn.Open  dbNorthwind
        Set rsShipperList =  dbConn.Execute(strSql)

        If Not (rsShipperList.BOF And rsShipperList.EOF) Then
    %>
            <table class="pure-table pure-table-horizontal">
                <thead>
                    <tr>
                        <th>#</th>
                        <th>Name</th>
                        <th>Phone</th>
                    </tr>
                </thead>
                <tbody>
    <%
            While (Not rsShipperList.EOF)
    %>
                    <tr>
                        <td><%=rsShipperList("ShipperID")%></td>
                        <td><%=rsShipperList("CompanyName")%></td>
                        <td><%=rsShipperList("Phone")%></td>

                    </tr>
    <%
                rsShipperList.MoveNext
            Wend
    %>
                </tbody>
            </table>
    <%
        End If

        rsShipperList.Close
        dbConn.Close

        Set rsShipperList = Nothing
        Set dbConn = Nothing
    %>
    <p>&nbsp;</p>
</body>
</html>

